home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / prog_bas / intx.zip / INTX.BAS next >
BASIC Source File  |  1994-05-09  |  1KB  |  56 lines
  1. TYPE RegX
  2.    AX           AS  INTEGER
  3.    BX           AS  INTEGER
  4.    CX           AS  INTEGER
  5.    DX           AS  INTEGER
  6.    BP           AS  INTEGER
  7.    SI           AS  INTEGER
  8.    DI           AS  INTEGER
  9.    FLAGS        AS  INTEGER
  10.    DS           AS  INTEGER
  11.    ES           AS  INTEGER
  12. END TYPE
  13.  
  14. TYPE RegH
  15.    AL           AS  BYTE
  16.    AH           AS  BYTE
  17.    BL           AS  BYTE
  18.    BH           AS  BYTE
  19.    CL           AS  BYTE
  20.    CH           AS  BYTE
  21.    DL           AS  BYTE
  22.    DH           AS  BYTE
  23.    BP           AS  INTEGER
  24.    SI           AS  INTEGER
  25.    DI           AS  INTEGER
  26.    FLAGS        AS  INTEGER
  27.    DS           AS  INTEGER
  28.    ES           AS  INTEGER
  29. END TYPE
  30.  
  31. UNION RegType
  32.    X            AS  RegX
  33.    H            AS  RegH
  34. END UNION
  35.  
  36. $LINK "INTX.OBJ"
  37.  
  38.  
  39. ' DESC:    Clone of QuickBASIC's INTERRUPTX procedure.
  40. ' EXAMP:   pbIntX &H21, InRegs, OutRegs
  41.  
  42. DECLARE SUB pbIntX(BYVAL integer, InRegs AS RegType, OutRegs AS RegType)
  43.  
  44.  
  45. DIM InRegs AS RegType, OutRegs as RegType
  46.  
  47. OutText$ = "This is a test$"
  48. OutTSeg = STRSEG(OutText$)
  49. OutTOfs = STRPTR(OutText$)
  50.  
  51. InRegs.H.AH = &H9
  52. InRegs.X.DS = OutTSeg
  53. InRegs.X.DX = OutTOfs
  54.  
  55. pbIntX &H21, InRegs, OutRegs
  56.